home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Tele / M / MiniBBS 1.1.cpt / MiniBBS 1.1 / MiniBBS.TXT < prev   
Encoding:
Text File  |  1988-07-29  |  1.7 KB  |  50 lines  |  [TEXT/MSWD]
  1.  Settings File = Your Settings File
  2.  Script Name = MiniBBS
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = YES
  6.  Button = NO
  7.  
  8. 1   Set Variable NumberToSend from Expression  "= 0"
  9. 2   Set Variable NumberReceived from Expression  "= 1"
  10. 3   Set Text Xfr Param End Outgoing Lines with CR & LF 
  11. 4   Append to File "Activity Log"
  12. 5   Repeat
  13. 6     Wait for Call
  14. 7     Capture On 
  15. 8     Set Variable DT from Date & Time 
  16. 9     Send Local to File  "-------------------------^M"
  17. 10    Send Local to File  "='Added at ',DT,'^M'"
  18. 11    Repeat
  19. 12      Send Text String  "^M"
  20. 13      Send Text String  "Please Select an Option & Press <RETURN>^M"
  21. 14      If Line Does not Contain  "Option"
  22. 15        If Line Does not Contain  "OOppttiioonn"
  23. 16          Set Term Param Local Echo Yes 
  24. 17        Else
  25. 18          Set Term Param Local Echo No 
  26. 19        End If
  27. 20      End If
  28. 21      Send Text String  "----------------------------------------^M^M"
  29. 22      Send Text String  "1) Send a File to MiniBBS^M^M"
  30. 23      Send Text String  "2) Receive a File from MiniBBS^M^M"
  31. 24      Send Text String  "3) Type in a Message for MiniBBS^M^M"
  32. 25      Send Text String  "4) Exit & Hang Up^M^M"
  33. 26      Send Text String  "Please Enter Your Option: ^M"
  34. 27      Wait for Line Not Containing  "Your Option:"
  35. 28      If Line Contains  "1"
  36. 29        Do Script * "MiniBBS Receives File"
  37. 30      Else If Line Contains  "2"
  38. 31        Do Script * "MiniBBS Sends File"
  39. 32      Else If Line Contains  "3"
  40. 33        Do Script * "MiniBBS Receives Message"
  41. 34      Else If Line Contains  "4"
  42. 35        Send Text String  "Thanks for Calling! Now Signing Off.^M"
  43. 36        Hang Up
  44. 37      End If
  45. 38    Until Line Contains  "Now Signing Off."
  46. 39    Hang Up
  47. 40    Capture Off 
  48. 41    Wait Seconds  "20"
  49. 42  Until Expression  "= NumberReceived = 100"
  50.